﻿// Learn more about F# at http://fsharp.net
#light
    namespace salnxt
        module parse =
            let public typeofq (x:string) =
                match x with
                | x when x.Contains("what") || x.Contains("What") -> "what" 
                | x when x.Contains("who") || x.Contains("Who") -> "who" 
                | x when x.Contains("when") || x.Contains("When") -> "when"
                | x when x.Contains("where") || x.Contains("Where") -> "where" 
                | x when x.Contains("how") || x.Contains("How") -> "how"
                | x -> x
        module smalltalker =
            let public asker (x:int) =
                match x with
                | 1 -> "There are 10 types of people in this world. Those who understand binary and those who  don't."
                | 2 -> "There are 3 types of people in the world. Those who can count an those who can't."
                | x -> "FAIL123"